#!/usr/bin/perl
# file : redirect.pl

print "Redirecting STDOUT\n";
open(SAVEOUT, ">&STDOUT");  #复制stdout句柄到saveout句柄
open(STDOUT, ">test.txt") or die "Cannot open test.txt\n";  #重定向stdout句柄到test.txt文件

print "STDOUT is redirected\n";     #默认写入到stdout 重定向到test
system "date";                      #同上

open (STDOUT, ">&SAVEOUT");         #恢复stdout到saveout，默认的stdout输出
print "STDOUT restored\n";          #默认std输出到显示器